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Dans ce numéro de SIN, Vous trouverez un autre article sur 13 
programmation machine du 2068, cette fois on discute de la 
production d'effet sonore. Egalement, Sinon SIDE Raus offre ses 
2 nouvelles chroniques SPECTRODRAMME et ZONE INTERDITE, La 
première traite des jeux disponible pour SPECTRUM i la dernièra 
est pour vous, "petit tricheur" qui veulent faire des scores 
sensationnelles en ayant un nombre illimité de vies! En primes, 
voici quelques PÜKES que vous oouvez mettre dans le LOADER du 
jeu, avant l'instruction RANDOMIZE USR .., 


ASTRO BLASTER POKE 27522,1e nombre de vies 
désirées 

ATIC ATAC POKE 36519,0 pour vies infinies 

GYROSCOPE POKE 59519,0 gèle le temps à 59 
secondes 

LUNAR JETMAN POKE 35955,0 pour vies infinies 

MANIC MINER POKE 35142,0 pour vies infinies 

SABRE WULF POKE 44885,1865 POKE 44676,255 
FOKE 44577,80 reste cyan toujours 

1100 POKE 24733,0 gour vies infinies 


Vous pouvez écrire à Sinon à l'adresse suivante: 44 Yayburry, 
Hull, Québec , J98 105. 


Pour le AL, on trouve 2 programmes. Le oremier de Jean-Claude 
Touzin sert à faire des "BACKUPs" de nicrodrives, Le deuxième est 
un utilitaire, OL-SUBSTITUTION au GL-SWAP, Egalement pour le El, 

'ai pensé mettre sur pied "une Sancue de logiciels du domaine 
111 Ces programmes n'étant pas des logiciels commerciaux, ils 
peuvent être distribués gratuitement, 


Voilà j'espère que ce numéro vous olaira. Si vous aver des 
conmentaires, n'hésitez pas à me les faire parvenir! 


Real-o 


OL SOFTWARE 


L'éditeur français PYRAMIDE offre un SUPER CROUPIER sour le QL. 
En fait, ce logiciel est composé de & jeux soit la ROULETTE, le 
BACCARAT, ie CARTA + ALTA, ie POKER et enfin une SLOT MACHINE 
vient completer le tout, 


APRES LE 7X81, LE SPECTRUM ET LE OL : LE 788 
De temps en temps, en Angleterre, il y a des grandes expositions 
informatiques. Une de ceiles-ci, The Which Computer? Show, a vu 
CLIVE SINCLAIR presenter son nouveau bébé, le 188, Ce nouvel 
ordinateur est de type PORTABLE et il est produit par la nouvelle 
compagnie CAMBRIDGE COMPUTER LTD. Le 288 est petit, moins grand 
qu'une feuille de papier 8.5"xii" et oèse moins que 2 livres! 


I] possède 32K de RAM en standard et elle peut augmentée jusqu'à 
3Meg avec l'aide de cartouches. En plus le 188 offre une ROM de 
128K, Cet RUR contient le système d'exploitation, un traitement 
de texte et un tableur électronique, en plus il y a quelques 
utilitaires comme une calcuiatrice, un carnet de notes et une 
horloge/călendrier, Bati autour d'un 180, le 788 peut être 
alimenté par le secteur ou par des piles. Avec 4 piles, 
l'ordinateur peut fonctionner "activement" pendant 20 heures. 


Mais si l'ordinateur ne fonctionne pas, les piles garderont le 


contenu des mémoires intactes pendant plus d'un lan, Si vous 
écrivez un texte et que vous ferner le 188, votre texte sera 


gardé en mémoire et vous pourrez retravailler dessus le 
lendemain. 


Il y a un port série R5232 aui peut permettre la communication 
avec un autre ordinateur, Il y a divers connecteurs pour l'ajout 
des cartouches RAM/ROM, L'écran intégré est de type cristaux 
liquides et comporte 8 lignes de 80 caractères. 


Son prix de vente initial est de 230 livres sterling. 


Tu ne devrais nas mentionner dans tes lettres que tu 
aimes recevoir du courrier. Car tu risoues recevoir des 
lettres "problèmes", comme celle-ci... 

Il s'agit d'ABACUS, Tu trouveras dans cette enveloppe 
une feuille qu'ABACUS ae sort quand je demande une copie des 
formules que j'emploie dans un programme (dans ce cas-ci, un 
rapport d'impat prov.), Quant aux valeurs numériques, aux 
signes <) = etc, IF etc, ga semble correct. Mais les numéros 
des cellules (C10, 043, 831, etc) mon vieux c’est quelque chose! 
Je dois dire cependant que ce probléme mis à part (je copie 
les formules à la main) ABACUS est très facile d'emploi pour 
un programme aussi conplexe. 


Jean-Claude Touzin 
ta Sarre 


Wand 


Prenons l'exemple suivant: 


| A | B | C | 
li Fi F2 
d 
3! 
4: 
81 
b i 
"EE F3 
Les formules sont: Fi -} Bi*B2 
F2 =) 51/82 
F3 -) Ci 
ABACUS nous dit ceci : Fia CAT Toi LIREH13 
F2 : CC-ZIRESQ1/CE- E2RES 11 
F3 : BEARREAN 


La notation employée par ABACUS est RELATIVE, i.e. oue si dans 
une formule on fait référence à une ceilule alors la position 
de celle-ci est donnée par rapport à la cellule où se trouve 
cette formule (ouf,..). 

Les cellules sont identifiées par 2 coordonnées soit ZIOEI), 
C signifie COLUMN (pour colonne) et R signifie ROW pour 
rangée). 


Si l'on prend Fi (Bi+B2), Bi est identifié comme CCT AL) 
par rapport à Ai, donc i coiorne à droite et ia même rangée. 
B2 est CITIIRLT II, 1 coionne à droite et 1 rangée en bas. Môme 
chose pour F2 mais par raogort à Ci, Pour F3 oui se trouve à 
CB, nous faisons référence à CI, gu dans ia même colonne mals 
7 rangée plus haut (-7). 


il faut se rappeler pour ies colonnes: 


Déplacement Positif -} vers ia droite 
Désiacement Negatif -> vers la 9 


pour les rangées: 


SA vers le bas 


Deniacement Positif 
Népatif -? vers le haut 


Déplaceaent 


Réal-0 


J'aimerais savoir si le lecteur de disquettes de B.B, 
MICRO aux E. -U. à $39.95 est un lecteur 3 po., 3 po, et demi, 
ou un 9 po, et quart. 

Simon Rioux 

Hull 


Cette question fait référence à un article de Y. Lavoie 
au sujet de l'ajout de disquettes sur le 2068, J'ai regardé 
dans les annonces de B,6, MICRO dans mes magazines et je n'ai 
pas vu les lecteurs A $39,95 US mais ceux à $29.95 US! Ces 
lecteurs sont des SHUGART SAADOL, 5 1/4 oo., 40 tracks, simple 
coté, Ces lecteurs donnent donc une capacité de 180K. Il 
s'agit en fait des anciens lecteurs du IBM PC. Il sont pleine 
hauteur, 

de profite de l'occasion pour signalé que la MAISON DES 
SEMICONDUCTEURS  (hé!hé!) à Québec et Montréal offre des 
lecteurs REMEX pour $69.00 . Ces lecteurs sont 1/3 hauteur et 
double coté. Ils donnent une capacité de 250K. 


Réal-9 


Dans cet article, nous allons examiné comment on peut exploiter 
les capacités sonores du 2068 via le langage machine. 


Une des particuliarités du 2068 par rapport à son cousin 
SPECTRUM, est la présence d'un circuit spécialisé dans la 
production sonore sur 3 voix différentes, C'est ce CHIP qui est 
utilisé avec la commande BASIC SOUND. Des résultats forts 
intéressants peuvent Être accomplis de l'utilisation judicieuse 
du AY-3-8912 comme en fait foi les "MICRO-MUSIQUE" de Sinon Rioux 
dans les numéros précédents de SIN. 


La méthode utilisée gar le SPECTRUM est également présente sur le | 


2068, Nous allons étudié celle-ci en premier lieu. 


Le petit Haut-Parieur à l'intérieur du 2068 est vu par celui-çi 
comme un périphérique, de ce fait nous comnuniquons avec lui avec 
la commande OUT du 280 ( ou du BASIC |. Le H,P. se situe au port 
de sortie qui se trouve à l'aóresse 254, En fait ce port controle 


LO 


plusieurs choses. 


PORT 280: bit 7-6-5 bit “ dit 3 dit 2-1-0 
pas i MIC couleur 
utilisés H. P. BORDER 

j a couleur Gu 


On peut en déduire qu'il est possihl l 
2. En BASIC, essayez ca 


a d 
BORDER via le port 254 avec les bits 0,1 
programme: 10 FOR i=0 to 7: PAUS 
20 QUT 254,i 
30 NEXT i 


Les sons sont générés en mettant la bit 4 à % et & "it, selon 
una certaine fréquence. 

10 QUT 254, BIN 00010111 

20 QUT 254,BIN 00000111 

30 60 TD 10 


La lenteur du BASIC ne nous permet pas d'avoir un grand control 
sur le son que nous voulons orotuire, 


I] est possible d'utiliser ia routine ROM de la commande BEEP, 
Cette routine, pour le 2068. est située à l'adresse 1041 (3F3 
den.) 


Avant l'appel de cette routine nous devons charger le registre HL 
avec le temps de base du son | ou fréquence ) à produire, La 
valeur "0" donne un son très aigu tandis oue la "-1" (FFFF gez.) 
donne un son très grave. Dans le registre DE, nous indiquons la 
durée du son. C'est içi que tout ceci complique. Si nous avons 
une fréquence de 256 et une durée de 256, OK tout va bien, Mais 
si nous avons une fréquence de 312 pour la mine durée que 
l'exemple précédent nous devrons avoir une durée de 512, car la 
fréquence est 2 fois nius élevée. Donc ia durée est en relation 
directe avec la fréquence. 

Voici un programme BASIC qui nous germat d'expérimenter un peu 
avec l'appel de cette ROUTINE ROM, 


Programme assembleur ORG 50000 
LOOP LD He, 123760) variable SEED 
LD DE,100 S Qur ee 
CALL 1011 iroutine BEEP 
CALL 8201 ı TEST BREAK? 
RET NC 


JR LOGP 


Programme BASIC 10 


170 


180 


REM Frog. pour experimenter 


REM ia routine ROM BEEP 


REM pour le 752048 


1 


CLEAR 49999 


FOR i=50090 to 30014 


READ a: FOKE i,a: NEXT i 


DATA 32,208,92.17,100,0,208 


DATA 243,3,205,9,32,208,24,241 


INPUT "La fréquence (0-85535) ed 


RANDOMIZE f 


PRINT "La frequence est "if 


INPUT "La durea (0-255):";d 


POKE 50004,d 


PRINT "La duree :";d 


PRINT "Faites BREAK pour terminer." 


LET a=USR 50000 
Généralement, avec le BEEP, on ne peut que produire qu'un son à 
la fois. Mais avec le CHIP de son, on n'a 3 canaux différents 


pour produire des sons. 


fréquence. 


La programmation de ceux-gi est faites 
via 1$ registres qui controlent l'amplitude, l'enveloppe, la 


Les registres du AY-3-8912 


registre fonction canal 

o T Fine Tune a 
1 Coarse Tune A 

2 Fine Tune B 

3 Coarse Tune B 

4 Fine Tune c 

5 Coarse Tune c 

& Noise (31-grave) 
7 Enable 


Soustraire de 63 pour mettre 


en fonction: 


Musique A=1 B=2 C=4 


Bruit A=8 B=16 Ca32 
Amplitude A 
Amplitude B 
Amplitude C 


Fine Tune Enveluppe 
Coarse Tune Enveloppe 
Enveloppe Shape 
Holdzl Alternate-2 


Attack=4 Continue=8 


valeur 


0-255 
0-15 
0-255 
0-15 
0-255 
0-15 
0-31 


0-63 


m— 


pow] 


Le 2068 donne au AY-3-8912 une horioge de 1.754 Mhz, Celle-ci est 
divisée par 1% à l'intérieur du CHIP sour nous donner une dor loge 
de référence de 110.25 Khz. Chaque son a sa progre fréquence, 
Pour obtenir un son, nous devons diviser la frécuence de 
référence, Chaque canal possède © registres pour cett fonction, 
pour le canal A, il s'agit des registres 0 et 1. La division se 
fait sur 12 bits, Le registre D nous donne B bits tantis que le 
registre | nous donne les 4 autres ( las olus significatives }, 


Pour avoir les valeurs correspondantes aux not 
procurez-vous ie livre de F. Mazur, TI 
INTERMEDIATE-ADVANCED GUIDE, oublié chez SAME BOOK, 


Pour programmer le CHIP, on doit écrire dans ie sort 243 ( F5 en 
hex. ) le registre que l'on veut modifier et dans le port 246 ( 
Fb en hex. ), la valeur cue l'on veut y mettre, 


Par exemple, si l'on veut mettre l'amplitude du canal B à 10, on 
fait : LD 3,9 — Numéro du registre qui controle 
QUT 248, {l’ampiitude du canal B 
LD 4,10 Valeur de l'amplitude 
QUT 246, à 


I] est à noter que l'on peut programmer le CHIP mâna si l'on a 
installer un ROM du SPECTRUM nuisau'on ne fait pas appel à des 
routine ROM, Egalement le nouveau SPECTRUM 128K de AMSTRAD 


possède le même circuit mais il n'est Das situé aux mêmes 
adresses, 


Le son produit par BEEP ast orésent sur la prise MIC à l'arrière 
cu 2088, donc prêt à être amplifier. Cependant celui produit par 
SOUND est présent seulement sur | connecteur d'expansion , II 
est à la pin 31, coté soudure i.e, dessous ) 


Lorsque vient le moment de faire une cosie de sécurité d'un 
aicrodrive, le processus peut être long et gé si on l'on ig 
fait programme par programme, Voici un uti écrit par mon 
copain Jean-Claude T de ndvi à miv2. 


er 
Y! ae 
pe 
nd 
D. D 


Touzin, sui fait un "BAC 


100 REMark copieur 

105 REMark par J. C. Touzin 

106 : 

110 MODE 512 

120 WINDORET,212,181,0, 20: CLER) 

130 WINDOWR2,212,20,0, 0: CL 597 

140 CLS40 

150 L81282, 2,1 

160 PRINTEZ, 52022» 3OCUPIEUR DE CARTOUCHECX4CC(((4" 

170 PRINTI "Ce programme permet de copier une cartouche sur une 
autre," 

180 PRINT\"IL vous donne le choix d’une conie totale ou 
partielle," 

190 PRINT\" (La cartouche dans ndvi ne doit pas comporter plus de 
45 programmes dont les noms ne dépassent pas 23 caractères, Ceci 
peut être modifié), ” 

200 PRINT V'Placer L'ORIGINAL dans mdvi_ et une autre cartouche 
dans mdv2 . 

210 PRINTO, "Voulez-vous FORMATer mov? 7 (o/n)" 

220 touche: IF z$="o" OR 2$="0" THEN formatage 

230 CLSRO:PRINTSO, "Taper une touche pour débuter la copie..." 
240 z$=INKEY$(-1) 

250 fichier 

260 DUERO 

270 scrute:tableau 

280 PAUSE {60:ELS:ecran 

290 selection 

300 DEFine PROCedure fichier 

310 PRINTV'Création d'un fichier temporaire contenant --)DIR 
ndvi sur mdv2 ." 

320 OPEN NEWR2,mdv2 fichier temo 

330 DIRES, mdvi_:CLOSE#S 

340 END DEFine 

350 CLS:PRINT"Exécution du copi age. . 110 

360 REPeat copie 

370 jisiiti 

380 IF ii >compteur THEN EXIT copie 

390 IF nom p$iii)="" THEN NEXT copie 

400 conpte⸗ii 

410 atfiche 

420 COPY 'mdvi “non n$(ii) TO 'ndv2 nan p$lii) 

430 END REPeat copie 

440 CLS4O:PRINTEO, "Copie terminée. Encore? (o/n)" 

450 touche 

460 IF z$z"o" OR z$="0" THEN RUN 

470 PRINT#0,"Tager NEW pour effacer ie orogramne.":STOP 


eek 


480 DEFine PROCadure formatage 

490 CLS$0:C517E80,2,1 

500 PRINTAO, "ATTENTION! "::C812E30,0,0: PRINTED, "taut sera détruit 
sur la cartouche insérée dans mdv2 " 

310 AT$0,1,35:PRINTRO, "DK? (/)“ 

520 touche | 

530 IF z$z"n" OR z$="N" THEN END DEFine 


340 CLS#0 

550 PRINT#0, "Quel nom voulez-vous donner à cette cartouche?" 
560 INPUT#O, cartouche 

570 PRINT40, "Combien de fois voulez-vous FÜRMATer cette 
cartouche?" 

580 INPUT#0,fois 

390 FOR (izi TO fais 

500 FORMAT 'mdv2 "cartouches 

610 END FOR ff 

620 END DEFine 

630 DEFine PRüledure scrute 

640 compteur=0:n=168390 

650 REPeat bloc 

660 n=n+2 

670 IF n2148902 THEN EXIT bloc 

680 hmn=PEEK(n) 

690 IF han 247 THEN NEXT bloc 

700 IF hmat=compteur THEN NEXT bloc 

710 conpteur-hmn 

720 END REPeat bloc 

730 END DEFine 

740 DEFine PROCedure selection 

750 conbienzü 

760 PRINT #0, "Y-a-t-il des programmes que vous ne vouiez gas 
copier? (o/n]" 

770 tauche 

780 IF z$z"o" OR 2$="0" THEN choix 

790 END DEFine 

800 DEFine PROCedure affiche 

810 IF comptezi OR compte-ió OR compte=3i THEN ligne=0 
820 colonne=54 

830 IF comptes3i THEN calanne=27 

840 IF comptetié THEN colonne=0 

850 lignezligne*i 

850 AT ligne,colonne: PRINT compte:"z":nom p$íii) 

870 END DEFine 

880 DEFine PRÜLedure choix 

890 INPUT&O, "Combien? "icombien 

900 IF combienti OR combien?zcompteur THEN choix 


710 PRINTO, "Taper leur numéro suivi de ENTER," 
920 FOR izi TD combien 

930 INPUT40, "Nunéro du progranne? "inumero 
940 nom ps (numero) s" 

930 END FOR i 

950 END DEFine 

970 DEFine PROCedure tableau 

980 DIM nom p$(conpteur,23) 

990 PRINT "Lecture..." 

1000 OPEN INO AZ fichier temp 

1010 INPUT43, hi $;han$ 

1020 FOR iizi TO compteur 

1030 INPUTS nom ps ii) 

1040 END FOR ii 

1050 CLOSERS 

1060 PRINT" et destructíon du fichier temporaire sur 
adv2 . 

1070 DELETE ndv2 fichier ten 

1080 END DEFine 

1090 DEFine PROCedure ecran 

1100 PRINT "Contenu de mdvi (zh): 
1110 compte=0 

1120 FÜR iisi TO compteur 

1130 conptesconpte*i:affiche 

1140 END FOR ii 

1150 END DEFine 

1180 DEFine PROCedure touche 

1170 REPeat tourbillon 

1180 z2$zINKEY$ (-1) 

1190 IF z$z"o" OR 2$="0" OR z$z"n" OR z$="N" THEN EXIT tourbillon 
1200 END REPeat tourbillon 

1210 END DEFine 


Le DESKTOP PUBLISHING est maintenant possible sur 
le BL avec le logiciel FRONT PAGE de GAP SOFTWARE, Voici une 
petite modification pour comprimer l'impression de moitié, 
Car avec SIN j'utilise 1/2 gage pour une page. Pour ce faire, 
nous mettons l'imprimante en QUADRUPLE DENSITE au lieu de 
DOUBLE DENSITE, Il faut le programme BOOT qui configure 
FRONT PAGE pour le type d'imprimante que nous avons. A la 
ligne 96, on change 


POKE SCRPRT*139.75 pour POKE SCRPRT+159, 90, 


DOUBLE DENSITE — : ESC,"L'",ni,n2 (code ASCII de Lu: 76) 
QUADRUPLE DENSITE: ESC,"2",ni,n2 (code ASCII de "I":90) & 
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Voici un petit utilitaire gui va certainement vous Être utila un 
jour. Supposons que avez un programme gui fait référence à mdvi 
et vous voulez plutôt faire référence à flot, Vous pouvez charger 
le programme et changer "à la mitaine" tous les mdv! pour des 
flpl mais cette façon est longue et ennuyause. Ce nrogramme fera 
cette opération rapidement pour vous, 


Premièrement vous dites le nom du programme à examiner, puis le 
nom du nouveau programme avec les corrections. c'est alors que 
dites le mot à changer et son remplacement. 


Dans un WINDOW, le programme original défile et dessous, le 
nouveau programme avec les corrections également, Le programme 
fait une pause si vous faites CTRL FS, refaites la mêne 
combinaison pour repartir. Le nombre de modification apparait 
dans un petit WINDOW dans ie coin supérieur droit, 


ATTENTION: Si vous ne possédez gas ie TOOLKIT Il, laisser tomber 
les lignes 130 à 250, 


100 REMark BL-SUBSTITUTION gao-c octobre Bé 


110 : 

120 : 

130 WHEN ERRor 

140  wzERNUM 

150 SELect ON w 

160 z-TiPRINTSO, "Fichier! Vintrouvable III 

170 z-B:PRINTEO,'Fichier deja'V' existant !!!' 
180  =-0:PRINT#0, Fichier toujours! V ouvert II 
190 =-11:PRINTEO, "Lecteur’V’olein Ti? 

200 =-20:PRINTEO,’Protege en'V'ecriture III 


210 REMAINDER +PRINT40, ERREUR? V'DETECTEE. III 

220 END SELect 

230 PRINT #2,'APPUVEZ UNE TOUCHE POUR CONTINUER...’ PAUSE 
240 clean: RUN 

250 END WHEN 

260 : 

270 : 

280 MODE 4 

290 WINDOW 512,255,0,0:PAPER GEO 

300 WINDDW&U, 400, 44,50, 0: BÜRDER#O, 1,7 

310 PAPERSO, 0: INK&0,7:CLS30 

320 WINDOWE1,512, 100, 0, 45: BORDERS, 1,7 

330 PAPER&I,0: INKGH , 7: ULE 

340 WINDOWE2, 512, 100,0, 146: BORDER#2, 1,7 

350 PAPER42, 0: INK82, 4: CLS82 

360 : 

370 INPUT#0, "le nom de grogranne (ex, ndvi prog!) :":prog$. 
380 INPUTEO, "le nouveau programme (ex. ndvi prog2) :";progi$ 
390 INPUT#0, "L'item ou le mot à changer :"itan$ 
400 INPUTEO, "et on remplace ie mot ou l'iten par changes 
410: 

420 : 

430 WINDOWRO, 135, 24, 370, 15: PAPEREO, 58: BORDER4O, 1, 7:CLSHO 

440 OPEN Fe, progs 

450 OPEN MEIG. rgia 

460 : 

470: 

480 IF iten$ INSTR changes: PRINT#0, ' SUBSTITUTION'V ILLEGALE 
1112 +PAUSE: clean: RUN 

490 ligne-zi:modificationzó 

300 PRINT#O, ligne courante: V &nodifications 37 


310 : 

320 : 

330 REPeat loop 

540 IE EOF(S5):EXIT loop 

330 AT40,0, 16: PRINTEO, ligne 

260 ATO, 1, 16: PRINT&O, modification 
370 INPUT#6, ligne$ 

380 PRINM i!, lignes 

390 verification ligne 

500 PRINTEZ, lignes 

810 PRINT#7, ligne$ 

b20 ligne=lignet! 

650 END REPeat loop 

640 clean 

650 WINDOWRO, 200, 43, 100, 120: BORDERSO, 1, 7: CLS 
660 PRINT#O,TO b,’ SUBSTITUTION TERMINEE.' 
670 PRINT#O,TO 5, APPUYER SUR UNE TOUCHE FOUR ' 
680 PRINT&O,TO 11, CONTINUER’ 

690 PRINT&O,TO 5,'0U 40» POUR TERMINER, ' 
700 Repeat loop: i SINE VE: IF i$) ":EXIT loop 
710 IF i$zz'g' 

720 PRINT, Retour au SÜPERBASIC.':5TOP 
730 ELSE 

740 RUN 

730 END IF 

760 : 

770 : 

780 DEFine PROCedure verification ligne 
790 positionzitem$ INSTR ligne$ 

800 IF position 

810 modification=madificationti 

820 IF position+tEN(iten$) eL (tienes) 


821 ligne$zligne$(i TO nosition-i)kchanges:RETurn 
840 ELSE 
850 ligne$zligne$(i TO 


pasitian-i)&change$&ligne$(positiontLEN (iten$? TU LEN(1ignei)) 
B50 END IF 

870 ELSE 

880 RETurn 

890 END IF 

900 verification ligne 

710 END DEFine 

920 : 

930 : 

940 DEFine PRÜCedure clean:tLDSES5:CLOSES7:END DEFine 
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